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VAX=11 Bliss-32 V4.0-74 Page 1 
-Sep- Disk SVMSMASTER: tt «SRC JWFECOPY.BLI;1 (1) 


RTITLE “EDTSWFECOPY = end of COPY’ 
MODULE EDTSWFECOPY ( ! End of COPY 
ee = 'v04-000' ! File: WFEECOPY.BLI Edit: JBS1003 


BEGIN 


BASES S LILI I ESET TTT TTT TTT TTT cece ricer c eect i tii iit iii ii iiiiiiiit 


it COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


is re SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sorree 
!* ONLY Son! CCORDANCE WITH THE TERMS OF SUCH pie ~_ My eh 


; N SOF Tw 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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He He gt 7 IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:® SHOUL BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPM 
Hd CORPORATION. 
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FOR THE USE OR RELIABILITY OF ITS 


ie DIGITAL ASSUMES NO RESPONSIBILITY 
1S NOT SUPPLIED BY DIGITAL. 
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ee 
FACILITY: EDT -- The DEC Standard Editor 
ABSTRACT: 
End of a COPY command. 
ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: October 16, 1978 
MODIFIED BY: 
1-001 - Original. DJS 23-Feb-1981. This module was created by 
extract pin Ba ade EDTSSEND_CPY 'r98 module EDTWF. 


1-008 = Regularize headers. JBS 16-Mar-1981 
1-005 - Improve the appearance of the Listing. JBS 20-Jun-1983 
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Surecopy.BLl; 


ss-32 V4.0-74 
STER: CEDT.SRC 


: NOVALUE; 
In the routine 


EDTSSEND_CPY 
EXTERNAL REFERENCES: 
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EQUATED SYMBOLS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 
INCLUDE FILES: 


FORWARD ROUTINE 
REQUIRE "EDTSRC:EDTREQ'; 
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EDTSWFECOPY = end of COPY 
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ERISAFECOPY —EDTEYFECOPY = end of COPY. ybesepn9ee O2:95:45 


BLiss=32 ¥4.0-742 Pose 3] 
MSMASTER:CEDT.SRCIWFECOPY.BLI;1 (3) 


nes 


; ¢ ¢ ! ZSBTTL "EDTSSEND_CPY = end of COPY' 

5 $ 8 1 GLOBAL ROUTINE EDTSSEND_CPY ( ! End of COPY command 

: 1 AR ! 1 = delete source buffer 

4 8 8 1 ) : NOVALUE = 

H 9 659 1 

; 0 660 1 !+4¢ 

: 4! red ! FUNCTIONAL DESCRIPTION: 

s 38 8 1! End copy. The copy is terminated, and if the clear parameter is | 

3 $e eC) : } specified, the source buffer is deleted. 

: 9% 666 | | FORMAL PARAMETERS: 

:; #97 667 1! 

3 oS S943 : CLEAR 1 = delete source buffer when done 

: 100 0670 1 ! IMPLICIT INPUTS: 

: 101 0671 1! 

3 4 bore 7 EDTSSA_ALT_BUF 

; 9 0675 1! EDTS$G_ x AVAIL 

3 104 0674 1! EDTSSA_ K_BUK 

3; «6105 0675 1! EDTS$G_ ve *CURBUK 

; 106 0676 1! 

3 107 0677 1 =! IMPLICIT OUTPUTS: 

; 108 0678 1! 

; 109 0679 1! EDTS$G_ “ AVAIL 

3 110 0680 1! EDTSS$A_WK_B 

s 111 0681 1! EDTS$G_ ve “MODFD 

3 ie Bese 1! EDTSS$A_CUR_BUF 

s F% 06835 1! 

3; (1146 0684 1 ! ROUTINE VALUE: 

3: 6115 0685 1! 

; 6116 0686 1! NONE 

s 117 0687 1! 

3; #6118 688 1 ! SIDE EFFECTS: 

: 119 689 1! 

; 120 0690 1! NONE 

3; 121 0691 1! 

ee é 0692 1 !-- 

3 le 0693 1 

; \$¢ 0694 BEGIN 

s 125 0695 

: 126 0696 EXTERNAL ROUTINE 

: isc 697 EDTS$WF_BOT : NOVALUE 

> 128 698 EDTSS$END_INS : NOVALUE | 

: 129 0699 EDT$$RD_CURLN : NOVALUE, 

: : 3700 EDTSSTOP BUF : NOVALUE; | 

: 132 108 EXTER wat 

; 13 07 EDTSSA_ ng BUF : REF TBCB_BLOCK, ' Current text buffer control block | 

: «134 0704 2 EDTS$S$A_ALT_BUF, ' Alternate text buffer control block 

: 135 0705 EDTS$G_W KAVA Alc, ' Pointer to next available deleted bucket | 

: 136 78 EDTSSA_ ' Pointer s?, current bucket 

: Ht} 7 REF “BLOCK tur -BUKT_SIZE, BYTE] FIELD (WFB Piel DS) 

s 138 708 EDTS$$G CURBU ' NumBer of the current bucket 

; +44 A EDTS$G_ uk “mODFDS ! Flag indicating bucket was modified 
| 


? 
EDTSWFECOPY EDTSUFECOPY - end of COPY 16-8 Sep-1984 VAX=11 Bliss-32 V 4 | 
7 $05 EDTSSEND_CPY = end of COPY 14-Sep ety 7 95: 2: $3 DISK KSVMER TER: chor? she WFECOPY.BLI;1 fage a 
: 14) ae IF giCLEAR 
128 71 sel | 
144 714 pr SuF 8 Q 
145 715 EDTS NOK BUR ture NEXT_BUKT] = .EDTS$$G_WK_AVAIL; | 
146 ig atte Wk honed = T; 
14 71 EDT$$TOP | 
148 218 EDTS$$G_ UR AVAIL’ .EDT$$G_WK_CURBUK; 
149 at END; 
151 721 EDT$$A_CUR_BUF = _ EDTSSA ALT_BUF; 
3 oF ¢ EDTSSRB_CURL EAE: 
1 7 EDTSSENB_INS (); 
154 0724 END; ! of routine EDTSSEND_CPY | 
TITLE EDTSWEECOPY EDTSWFECOPY = end of COPY 
IDENT \V04-000\ 
.EXTRN EDTSS$WF_BOT, EDTSSEND_INS 
EXTRN EDTSSRD > CURLN, EDT$$TOP_BUF 
EXTRN EDTSS$A_CUR_BUF, EDTSSA_ It _BUF 
EXTRN EDTS$G_WK_AVA VAIL 
EXTRN EDTSS$A~ uk =BUK pEDTSS6_ Wk _CURBUK 


SEXTRN EDTS$SG_W 
.PSECT EDTSCODE, NOWRT, SHR, PIC,2 


0004 00000 .ENTRY EDTSSEND cP. save R2 : 0656 

52 000000006 00 9E 00002 MOVAB EDI $$6_ WR_AVAIL, R2 : 
27 04 AC €9 00009 BLBC CLEAR, -1$~ : 0711 
000000006 00 00 FB 0000D CALLS #0 AT OTSSuF BOT > 0714 
50 000000006 00 pO 00014 MOVL  EDTS$$A_WK_BOK : 0715 

02. AO 62 BO 0001B MOVW = EDT$$G"W RoAVAIL 0 (RO) : 
000000006 00 01 DO 0001F MOVL = #1, EDTSSC Wk _MODFD > 0716 
000000006 00 00 FB 00026 CALLS #0. EDTS$$TOP GBuF : 0717 
62 000000006 00 D0 00020 MOVL EDTS$$G_Wk K ,CURBUK EDT$$G_WK_AVAIL : 0718 
000000006 00 000000006 00 DO 00034 1$ MOVL EDTS$$A7ALT_BUF, EDTSSA A_COR_BUF : 721 
000000006 00 00 FB 0003F CALLS #0, EDTS$RB_CuR : 0722 
000000006 00 00 FB 00046 CALLS #0. EDT SSEND INS” : 0723 
04 0004D ET : 0724 


; Routine Size: 78 bytes, Routine Base: _EDTSCODE + 0000 


0725 1 
0726 1 !<BLF/PAGE> 


ms 

EDTSWFECOPY EDTSWFECOPY = end of COPY 16-Sep-1984 05:43 VAX-11 Bliss-32 V4.0-74 Pa 
Os 008 EDTSSEND_CPY = end of COPY 12-388: 3B 95392 533 STEKSVMGHASTERSCEDT SRCTWFECOPY.BLI:1 - 
; 158 727 1 END ! of module EDTSWFECOPY 
i 18 0738 1 a 
; 160 7 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
: _EDTSCODE 78 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
: eoccecee Symbols ------ -- Pages Processing 
: File Total Loaded Percent Mapped Time 
: .$255$DUA28: CEDT.SRCJEDT.L32;1 377 30 7 40 00:00.2 
; _$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
3 COMMAND QUALIFIERS 
; SLISS/CHECK SCF IELD, EMETIAL OPTIMIZE) /MOTRACEBACK/L ISL 388 :UFECOPT/0BJ=08JS : UF ECOPY MSRCS$:WFECOPY.BLI/UPDATE=(ENHS:WFECOPY 
; Size: 78 code + 0 data bytes 

Run Tim 0:09. 


PY ie: H 

; Elapsed Time: 00:12.7 
3 Lines/CPU Min: 4436 

3 Lexemes/CPU-Min: 12206 

: eeery Used: 64 pages 

. a 


; Compilation Complete 
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